home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / Text-Chat-Scripts / pp-320m.exe / pp300 / a-fkeys.mrc < prev    next >
Encoding:
Text File  |  1997-12-15  |  7.9 KB  |  165 lines
  1. ; -----------------------------------------------------
  2. ; Peace and Protection (by misspai)
  3. ; -----------------------------------------------------
  4. ; Function key definitions (in
  5. ; remotes to allow #groups)
  6. ; -----------------------------------------------------
  7. alias _retakecheck {
  8.   .timer903 0 14 _retakecheck
  9.   if ((%_self.lag.count > 30) || ($right(%-uhsearch,6) == .clean) || (%pp.net == offline)) halt
  10.   set %-uhsearch %-uhsearch .nick
  11.   .raw userhost %_nickretake
  12. }
  13. on 1:nick:if (($nick == %_nickretake) && (%_+nickrc) && (%pp.net != Offline)) _retakecheck
  14. on 1:quit:if (($nick == %_nickretake) && (%_+nickrc)) _retakecheck
  15. on 1:part:#:if (($nick == %_nickretake) && (%_+nickrc)) _retakecheck
  16. on 1:notice:*Your ghost has been killed*:?:if (%_nickretake != $null) _retakecheck
  17. on 1:notice:*Nick*has been released from custody*:?:if (%_nickretake != $null) _retakecheck
  18. #^fkeynorm on
  19. alias f1 _selfstop F1 4 | sp
  20. alias sf1 _selfstop ShiftF1 2 | %-sf1 | if ($left(%-sf1,4) == .dcc) unset %-sf1
  21. alias cf1 _selfstop CtrlF1 2 | %-cf1 | if ($left(%-cf1,4) == .dcc) unset %-cf1
  22. alias f2 _selfstop F2 2 | if ($left($active,1) == =) dcp | else ping
  23. alias sf2 _selfstop ShiftF2 2 | if ($chan($active) == $active) chaninfo $active | elseif (($chr(32) isin $active) || (@ isin $active)) _error Use ShiftF2 to get info from a channel, query, or DCC chat only. | else whois " $+ $remove($active,=) $+ "
  24. alias cf2 avglag
  25. alias f3 cd
  26. alias sf3 if (?: !iswm %cdp.drive) cd d | elseif (%cdp.inifile == $null) cd i | elseif ($_isopen(@CD)) cd p | else cd v
  27. alias cf3 %-cf3
  28. alias sf4 {
  29.   if (%-last.uctcp == *clones*) ping %-last.clones
  30.   elseif (%-last.uctcp == *clrstat*) clrstat %-last.clones
  31.   elseif (%-last.uctcp == *msg*) .ignore -r %_last.unsolicited
  32.   elseif (%-last.uctcp == *dcc*) .dcc send %-last.dccinc
  33.   elseif (%-last.uctcp != $null) {
  34.     set %_arhelp ctcpreply %-last.uctcp 
  35.     _askr _arhelp $gettok(%-last.uctcp,2-,32) reply to send to $gettok(%-last.uctcp,1,32) $+ ?
  36.   }
  37.   unset %-last.uctcp
  38. }
  39. alias f5 if (($chr(32) !isin $active) && (@ !isin $active)) _selfstop F5 3 | mp *
  40. alias sf5 playlist
  41. alias cf5 if (($chr(32) !isin $active) && (@ !isin $active)) _selfstop CtrlF5 3 | mid *
  42. alias f6 if ($active == @Colors) { window -c @Colors | halt } | if ((%+f6.simple.color) && ($window(@Click) == $null)) colorwin | else cnc
  43. alias sf6 if ($active == @Colors) { window -c @Colors | halt } | if (($_not(%+f6.simple.color)) && ($window(@Click) == $null)) colorwin | else cnc +
  44. alias cf6 if ($active == @Colors) { window -c @Colors | halt } | cncoff
  45. alias f7 if (%_last.notice.nick != $null) editbox -a /n %_last.notice.nick $chr(160)
  46. alias f8 set %_arhelp fk %-keybop.chan %-keybop.nick | if (%-keybop.nick != $null) _askr _arhelp Reason to kick %-keybop.nick $+ ? (and any clones)
  47. alias sf8 {
  48.   if (%-keybop.nick != $null) {
  49.     if ($address(%-keybop.nick,5) == $null) ban %-keybop.chan $_ppmask(%-keybop.addr,3)
  50.     else {
  51.       set %_arhelp cb %-keybop.chan %-keybop.nick
  52.       _askr _arhelp Reason to kickban %-keybop.nick $+ ? (and any clones)
  53.     }
  54.   }
  55. }
  56. alias cf8 {
  57.   if (%_+nickrecv) {
  58.     dispa Requesting NickServ to release nick...
  59.     set %.pw %autonk. [ $+ [ %_nickretake ] ]
  60.     ns release %_nickretake $_pwenc(%.pw)
  61.     unset %_+nickrecv
  62.     return
  63.   }
  64.   if ((%_+nickdal) && (%_+nickkill != $true)) {
  65.     dispa Performing NickServ KILL on %col.target $+ %_nickretake $+ ...
  66.     set %_+nickkill $true
  67.     _retakecheck
  68.     return
  69.   }
  70.   if (%_+nickrc) {
  71.     dispa Nick retake cancelled.
  72.     unset %_+nickrc %_+nickdal %_+nickkill %_+nickrecv
  73.     .timer903 off
  74.     halt
  75.   }
  76.   if (%_nickretake == $null) halt
  77.   unset %_+nickkill %_+nickdal %_+nickrecv
  78.   if ((%s^c == ChanServ) && ($findtok(%autonk.nicks,%_nickretake,32) != $null)) {
  79.     set %_+nickdal $true
  80.     dispa You will take the nick %col.target $+ %_nickretake $+  when possible. Press %col.option $+ CtrlF8 again to %col.dark $+ NickServ KILL. (auto for ghosts)
  81.     _retakecheck
  82.   }
  83.   else dispa You will take the nick %col.target $+ %_nickretake $+  as soon as it is available. Press %col.option $+ CtrlF8 again to cancel.
  84.   set %_+nickrc $true
  85.   _retakecheck
  86. }
  87. alias f9 .disable #^fkeynorm | .enable #_fkeysound | _fkeytitle | dispa Sound FKeys enabled. See titlebar for sound type and keys. %col.option $+ (F9 to disable, F12 changes file type)
  88. alias sf9 if (%_sf9.server == $null) { server | return } | if (%_sf9.server == *) set %_arhelp server $gettok(%_ns.found,$r(1,$_numtok(32,%_ns.found)),32)  | else set %_arhelp server %_sf9.server | _pentry _arhelp6667 Connecting to $gettok(%_arhelp,2,32) $+ -Port to use?
  89. alias cf9 911
  90. alias 911 {
  91.   if ($_isopen(@Alert)) window -c @Alert
  92.   if (%_ignoreall) {
  93.     disps %col.att $+ Disabling ignore-all...
  94.     .ignore -r *
  95.     if (%pp.net != offline) .timer904 1 2 _qsp Q
  96.     unset %_ignoreall
  97.     if ((%+cf9.nickchange) && (%_cf9.oldnick != $me) && (%_cf9.oldnick != $null)) { nick %_cf9.oldnick | unset %_cf9.oldnick %_oldnick }
  98.   }
  99.   else {
  100.     disps %col.att $+ Ignoring all messages, notices, CTCPs, and invites %col.option $+ (CtrlF9 to undo)
  101.     .ignore -tnikp *
  102.     set %_ignoreall $true
  103.     .timer904 off | .timer905 off | .timer906 off | .timer908 off | .timer910 off
  104.     set %self.lag ??
  105.     if (%+cf9.nickchange) { set %_cf9.oldnick $me | rn }
  106.   }
  107. }
  108. alias f10 {
  109.   if (%_f10dns != $null) { clipboard %_f10dns | unset %_f10dns }
  110.   elseif ((%pp.net == offline) && ($chr(32) !isin %_rejoin.keys)) {
  111.     if (%_rejoin.chans != $null) {
  112.       unset %_rejoin.chans %_rejoin.keys
  113.       disps Rejoin-on-reconnect canceled. (You will not rejoin any channels this reconnect)
  114.     }
  115.   }
  116.   elseif ($left(%-f10join.chan,1) == *) {
  117.     repjoin $gettok(%-f10join.chan,2,32)
  118.     unset %-f10join.chan %-prevf10join.key
  119.   }
  120.   elseif (%-f10join.chan != $null) {
  121.     j %-f10join.chan
  122.     set %-prevf10join.key $gettok(%-f10join.chan,2,32)
  123.     unset %-f10join.chan
  124.   }
  125. }
  126. alias f11 _selfstop F11 1 | fav j
  127. alias f12 if (%_away.why == $null) a | else back
  128. alias sf12 if (%_away.why == $null) qa | else qb
  129. alias cf12 if ($active == @Away) window -c @Away | else awaylog
  130. #^fkeynorm end
  131. #_fkeysound off
  132. alias f1 if (%fkeys.type == mp) randmp | elseif (%fkeys.type == midi) randmid | elseif (%fkeys.type == wave) randwav | else zrand %fkeys.typex
  133. alias f2 if (%fkeys.type == mp) mp | elseif (%fkeys.type == midi) mid | elseif (%fkeys.type == wave) wav | else z %fkeys.typex
  134. alias f3 if ($1 == $null) _askr f3 Words or filename mask to find? | if (%fkeys.type == mp) mp $1- | elseif (%fkeys.type == midi) mid $1- | elseif (%fkeys.type == wave) wav $1- | else z %fkeys.typex $1-
  135. alias f5 if (%fkeys.type == mp) mp ? | elseif (%fkeys.type == midi) mid ? | elseif (%fkeys.type == wave) wav ? | else z %fkeys.typex ?
  136. alias f6 drand
  137. alias f8 rrand
  138. alias f12 {
  139.   if (%fkeys.type == mp) set %fkeys.type Midi
  140.   elseif (%fkeys.type == midi) set %fkeys.type Wave
  141.   elseif (%fkeys.type == wave) {
  142.     if (%soundfile.custom == $null) set %fkeys.type MP
  143.     else { set %fkeys.typex $gettok(%soundfile.custom,1,32) | set %fkeys.type %soundfile. [ $+ [ %fkeys.typex ] ] | _fkeytitle | return }
  144.   }
  145.   elseif (%fkeys.typex != $null) {
  146.     set %.tok $findtok(%soundfile.custom,%fkeys.typex,32)
  147.     if (%.tok == $null) set %fkeys.type MP
  148.     else {
  149.       inc %.tok
  150.       set %fkeys.typex $gettok(%soundfile.custom,%.tok,32)
  151.       if (%fkeys.typex == $null) set %fkeys.type MP
  152.       else { set %fkeys.type %soundfile. [ $+ [ %fkeys.typex ] ] | _fkeytitle | return }
  153.     }
  154.   }
  155.   else set %fkeys.type MP
  156.   unset %fkeys.typex
  157.   _fkeytitle
  158. }
  159. alias f9 .disable #_fkeysound | .enable #^fkeynorm | dispa Sound FKeys disabled.
  160. alias f7 splay stop
  161. alias f10 splay stop
  162. alias f11 if (%fkeys.type == mp) mpindex | elseif (%fkeys.type == midi) midindex | elseif (%fkeys.type == wave) wavindex | else zindex %fkeys.typex
  163. #_fkeysound end
  164. alias _fkeytitle titlebar --> %fkeys.type <-- F1) Rand F2) Pick F3) Find -- F5) List F6) Delete F8) Repeat -- F12) Next type
  165.